home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)ma.d64 / print6_49.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  51 lines
  1. 100 PRINT"[147]WELCOME TO LOTTO6/49!!!!"
  2. 105 PRINT"THIS PROGRAM WILL PRINT 100 ";
  3. 110 PRINT"LISTS OF       6 RANDOM NUMBERS 1-49"
  4. 111 PRINT"PRESS RETURN"
  5. 112 GETA$:IFA$<>CHR$(13)GOTO112
  6. 115 PRINT"[147]ARE YOU USING A PRINTER? (Y/N)"
  7. 118 GET A$:IFA$=""THEN118
  8. 119 IFA$<>"Y"GOTO129
  9. 125 OPEN4,4,1:CMD4
  10. 129 PRINT"[147]THE COMPUTER HAS CHOSEN 100 COMBIN-"
  11. 130 PRINT"ATIONS OF 6 NUMBERS BETWEEN 1 AND 49."
  12. 135 PRINT"IF YOU'RE UNSURE ABOUT WHICH LINE TO"
  13. 140 PRINT"CHOOSE, HERE IS A RANDOM ORDER OF LINE  NUMBERS 0-99."
  14. 145 PRINT: FORN=0TO99:P=INT(100*RND(1)):PRINTP;:NEXTN
  15. 146 PRINT:PRINT:IFA$<>"Y"THENGOSUB500
  16. 150 FORN=0TO99
  17. 155 A=INT(49*RND(1))+1
  18. 160 B=INT(49*RND(1))+1
  19. 165 C=INT(49*RND(1))+1
  20. 170 D=INT(49*RND(1))+1
  21. 175 E=INT(49*RND(1))+1
  22. 180 F=INT(49*RND(1))+1
  23. 190 IFB=ATHENGOTO160
  24. 195 IFC=ATHENGOTO165
  25. 200 IFC=BTHENGOTO165
  26. 205 IFD=ATHENGOTO170
  27. 210 IFD=BTHENGOTO170
  28. 215 IFD=CTHENGOTO170
  29. 220 IFE=ATHENGOTO175
  30. 225 IFE=BTHENGOTO175
  31. 230 IFE=CTHENGOTO175
  32. 235 IFE=DTHENGOTO175
  33. 240 IFF=ATHENGOTO180
  34. 245 IFF=BTHENGOTO180
  35. 250 IFF=CTHENGOTO180
  36. 255 IFF=DTHENGOTO180
  37. 260 IFF=ETHENGOTO180
  38. 270 L$=" "+STR$(N):M$="   "+STR$(A):N$="   "+STR$(B):O$="   "+STR$(C)
  39. 275 P$="   "+STR$(D):Q$="   "+STR$(E):R$="   "+STR$(F)
  40. 280 PRINTRIGHT$(L$,3);".";RIGHT$(M$,5);RIGHT$(N$,5);RIGHT$(O$,5);RIGHT$(P$,5);
  41. 285 PRINTRIGHT$(Q$,5);RIGHT$(R$,5)
  42. 290 NEXTN
  43. 295 IFA$<>"Y"THENEND
  44. 300 PRINT#4:CLOSE4:END
  45. 500 PRINT "TO STOP LINES SCROLLING, PRESS"
  46. 503 PRINT"RUN/STOP"
  47. 505 PRINT"TO CONTINUE TYPE 'CONT'"
  48. 520 PRINT:PRINT"PRESS RETURN"
  49. 525 GETB$:IFB$=""THEN525
  50. 530 IFB$=CHR$(13)THENRETURN
  51.